home *** CD-ROM | disk | FTP | other *** search
/ Supercompiler 1997 / SUPERCOMPILER97.iso / BC++ Builder / DATA.Z / EVENT2.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1997-02-10  |  1.4 KB  |  36 lines
  1. //----------------------------------------------------------------------------
  2. //Borland C++Builder
  3. //Copyright (c) 1987, 1997 Borland International Inc. All Rights Reserved.
  4. //----------------------------------------------------------------------------
  5. //---------------------------------------------------------------------------
  6. #include <vcl.h>
  7. #pragma hdrstop
  8.  
  9. #include "Event1.h"
  10. #include "Event2.h"
  11. //---------------------------------------------------------------------------
  12. #pragma resource "*.dfm"
  13. #pragma link "sampreg.obj"
  14. TdmEvents *dmEvents;
  15. //---------------------------------------------------------------------------
  16. __fastcall TdmEvents::TdmEvents(TComponent* Owner)
  17.   : TDataModule(Owner)
  18. {
  19. }
  20. //---------------------------------------------------------------------------
  21. void __fastcall TdmEvents::IBEventAlerter1EventAlert(TObject *Sender,
  22.       AnsiString EventName, long EventCount, bool &CancelAlerts)
  23. {
  24.   frmEvents->lbReceived->Items->Add(EventName);  
  25. }
  26. //---------------------------------------------------------------------
  27. void __fastcall TdmEvents::dmEventsCreate(TObject *Sender)
  28. {
  29.    char   szBuffer[500];
  30.  
  31.    sprintf(szBuffer, "%sEvents.gdb", ExtractFilePath(Application->ExeName).c_str());
  32.    Database1->Params->Values["Server Name"] = szBuffer;
  33.  
  34. }
  35. //---------------------------------------------------------------------
  36.